home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / ARCO_install < prev    next >
Encoding:
Text File  |  1994-06-16  |  6.7 KB  |  336 lines
  1. ; This is the Install script for ARCO.
  2.  
  3. (welcome "Welcome to the ArCo installer.  This installer uses "
  4.         "the Commodore Amiga Installer®. \n\n")
  5. ;(set @default-dest "SD0:")    ;I use a virtual disk as default whilst debugging!
  6.  
  7.      ; install on hard disk
  8.      (set dest2 (askdir  (prompt "Select the location to install the ArCo directory")
  9.                           (default @default-dest)
  10.                           (help "Choose a destination partition or directory "
  11.                                 "to contain the ArCo compiler.  The install "
  12.                                 "program will create a directory called 'ArCo' "
  13.                                 "in the location you choose and copy the "
  14.                                 "compiler files to it."
  15.                           )
  16.                 )
  17.      )
  18.      (set dest1 (tackon dest2 "ArCo"))
  19.      (set @default-dest dest1)
  20.      (message "\n\nCompiler will be installed in "
  21.                dest1
  22.      )
  23.  
  24.      (makedir dest2 (safe) (infos))
  25.      (makedir dest1 (safe) (infos))
  26.      (makedir ("%s/Functions" dest1) (safe) (infos))
  27.      (makedir ("%s/Lib" dest1) (safe) (infos))
  28.      (makedir ("%s/ObjectFiles" dest1) (safe) (infos))
  29.      (makedir ("%s/Support" dest1) (safe) (infos))
  30.  
  31. (copyfiles
  32.     (prompt "Copying ARCO files.")
  33.     (help @copyfiles-help)
  34.     (source "ArCo:")
  35.     (dest dest1)
  36.     (pattern "ArCo#?")
  37.     (files)
  38.     (infos)
  39.     (confirm)
  40. )
  41.  
  42. (copyfiles
  43.     (prompt "Copying Librarian")
  44.     (help @copyfiles-help)
  45.     (source "ArCo:")
  46.     (dest dest1)
  47.     (pattern "Librar#?")
  48.     (files)
  49.     (infos)
  50.     (confirm)
  51. )
  52.  
  53. (copyfiles
  54.     (prompt "Copying Disassembler.")
  55.     (help @copyfiles-help)
  56.     (source "ArCo:")
  57.     (dest dest1)
  58.     (pattern "DISEx#?")
  59.     (files)
  60.     (infos)
  61.     (confirm)
  62. )
  63.  
  64. (set temp ("%s/Support" dest1))
  65. (copyfiles
  66.     (prompt "Copying support files.")
  67.     (help @copyfiles-help)
  68.     (source "ArCo:Support")
  69.     (dest temp)
  70.     (all)
  71.     (files)
  72.     (infos)
  73.     (confirm)
  74. )
  75.  
  76. (set temp ("%s/Functions" dest1))
  77. (copyfiles
  78.     (prompt "Copying Function files.")
  79.     (help @copyfiles-help)
  80.     (source "ArCo:Functions")
  81.     (dest temp)
  82.     (all)
  83.     (files)
  84.     (infos)
  85.     (confirm)
  86. )
  87.  
  88. (set temp1 ("%s/ARCO_Manual.guide" dest1))
  89. (delete temp1 (safe))
  90.  
  91. (set temp1 ("%s/ARCO_Install" dest1))
  92. (delete temp1 (safe))
  93.  
  94. (set temp1 ("%s/ARCO_Install.info" dest1))
  95. (delete temp1 (safe))
  96.  
  97. (copyfiles
  98.     (prompt "Copying Documentation.")
  99.     (help @copyfiles-help)
  100.     (source "ArCo:Read_Me.info")
  101.     (dest dest1)
  102.     (newname "ArCo_Manual.guide.info")
  103.     (files)
  104.     (confirm)
  105. )
  106.  
  107. (copyfiles
  108.     (prompt "Copying Documentation.")
  109.     (help @copyfiles-help)
  110.     (source "ArCo:ARCO_DOC")
  111.     (dest dest1)
  112.     (newname "ArCo_Manual.guide")
  113.     (files)
  114. )
  115. (set temp1("%s/ArCo_Manual.guide" dest1))
  116. (tooltype
  117.     (dest temp1)
  118.     (setdefaulttool "SYS:Utilities/Amigaguide")
  119.     (safe)
  120. )
  121.  
  122. (set action
  123.     (askbool
  124.         (prompt "\n\nDo you wish to install the Examples?")
  125.         (help "\nThis will install all example scripts\nEssential if you wish to run the demo!")
  126.     )
  127. )
  128.  
  129. (if(< @user_level 1)
  130.     (set action 1)
  131. )
  132. (if ( > action 0 )
  133.     (makedir ("%s/Examples" dest1) (safe) (infos))
  134. )
  135. (set temp ("%s/Examples" dest1))
  136. (if ( > action 0 )
  137.     (copyfiles
  138.         (prompt "Copying Examples...")
  139.         (help @copyfiles-help)
  140.         (source "ArCo:Examples")
  141.         (dest temp)
  142.         (all)
  143.         (files)
  144.         (infos)
  145.         (confirm)
  146.     )
  147. )
  148.  
  149. (set action
  150.     (askbool
  151.         (prompt "\n\nDo you wish to install the Demo?")
  152.         (help "\nThis provides a guided tour of ArCo\nplus a quick tutorial")
  153.     )
  154. )
  155.  
  156. (if(< @user_level 1)
  157.     (set action 1)
  158. )
  159. (if ( > action 0 )
  160.     (makedir ("%s/Demo" dest1) (safe) (infos))
  161. )
  162. (set temp ("%s/Demo" dest1))
  163. (if ( > action 0 )
  164.     (copyfiles
  165.         (prompt "Copying Demo...")
  166.         (help @copyfiles-help)
  167.         (source "ArCo:Demo")
  168.         (dest temp)
  169.         (all)
  170.         (files)
  171.         (infos)
  172.         (confirm)
  173.     )
  174. )
  175.  
  176. (set action
  177.     (askbool
  178.         (prompt "\n\nDo you wish to install the\n`C' programmers stuff?")
  179.         (help "\nOnly useful if you are going to include ArCo\ngenerated Object Files in your own programs.")
  180.     )
  181. )
  182.  
  183. (if(< @user_level 1)
  184.     (set action 1)
  185. )
  186. (if ( > action 0 )
  187.     (makedir ("%s/PROGRAMMERS" dest1) (safe) (infos))
  188. )
  189. (set temp ("%s/PROGRAMMERS" dest1))
  190. (if ( > action 0 )
  191.     (copyfiles
  192.         (prompt "Copying files...")
  193.         (help @copyfiles-help)
  194.         (source "ArCo:PROGRAMMERS")
  195.         (dest temp)
  196.         (all)
  197.         (files)
  198.         (infos)
  199.         (confirm)
  200.     )
  201. )
  202.  
  203. (set action
  204.     (askbool
  205.         (prompt "\n\nDo you wish to install the Public Domain stuff?")
  206.         (help "\nThis contains some useful libraries and other stuff,\nIts archived with Lha.")
  207.     )
  208. )
  209.  
  210. (if(< @user_level 1)
  211.     (set action 1)
  212. )
  213. (if ( > action 0 )
  214.     (makedir ("%s/Public_Domain" dest1) (safe) (infos))
  215. )
  216. (set temp ("%s/Public_Domain" dest1))
  217. (if ( > action 0 )
  218.     (copyfiles
  219.         (prompt "Copying Lha file...")
  220.         (help @copyfiles-help)
  221.         (source "ArCo:Public_Domain")
  222.         (dest temp)
  223.         (all)
  224.         (files)
  225.         (infos)
  226.         (confirm)
  227.     )
  228. )
  229.  
  230. (if (NOT (exists "LIBS:Amigaguide.library"))
  231.     (copylib
  232.         (prompt "Copying/Updating AmigaGUIDE.Library")
  233.         (help @copylib-help)
  234.         (source "ARCO:LIBS/amigaguide.library")
  235.         (dest "Libs:")
  236.         (confirm)
  237.     )
  238. )
  239.  
  240. (if (NOT (exists "SYS:Utilities/Amigaguide"))
  241.     (copyfiles
  242.         (prompt "Copying AmigaGUIDE.")
  243.         (help @copyfiles-help)
  244.         (source "ARCO:AmigaGuide")
  245.         (dest "SYS:Utilities")
  246.         (pattern "AmigaGUIDE#?")
  247.         (files)
  248.         (infos)
  249.         (confirm)
  250.     )
  251. )
  252.  
  253. (copylib
  254.     (prompt "Copying/Updating Other Libraries")
  255.     (help @copylib-help)
  256.     (source "ARCO:LIBS/rexxapp.library")
  257.     (dest "Libs:")
  258.     (confirm)
  259. )
  260.  
  261. (copylib
  262.     (prompt "Copying/Updating Other Libraries")
  263.     (help @copylib-help)
  264.     (source "ARCO:LIBS/rexxarplib.library")
  265.     (dest "Libs:")
  266.     (confirm)
  267. )
  268.  
  269. (copylib
  270.     (prompt "Copying/Updating Other Libraries")
  271.     (help @copylib-help)
  272.     (source "ARCO:LIBS/rexxmathlib.library")
  273.     (dest "Libs:")
  274.     (confirm)
  275. )
  276.  
  277. (copylib
  278.     (prompt "Copying/Updating Other Libraries")
  279.     (help @copylib-help)
  280.     (source "ARCO:LIBS/rx_intui.library")
  281.     (dest "Libs:")
  282.     (confirm)
  283. )
  284.  
  285. (copylib
  286.     (prompt "Copying/Updating Other Libraries")
  287.     (help @copylib-help)
  288.     (source "ARCO:LIBS/screenshare.library")
  289.     (dest "Libs:")
  290.     (confirm)
  291. )
  292.  
  293.  
  294. (set temp(  "assign ArCo: %s\n" dest1))
  295. (set error 0)
  296. (set error
  297.     (trap 4
  298.         (startup "ARCO"
  299.             (prompt "Adding ArCo assignment to \"S:user-startup\".")
  300.             (help @startup-help)
  301.             (command (temp))
  302.         )
  303.     )
  304. )
  305.  
  306. (if (> error 0)
  307.     (if (or (= @ioerr 222) (or (= @ioerr 223) (= @ioerr 224)))
  308.         (message "Startup file is write protected. Use protect " "to write enable the file, and select Proceed" )
  309.     ( ;else
  310.         (message "Non-Standard startup sequence detected. You must add " "the following line by hand.\n\n" "    assign ARCO: " dest1 "\n")
  311.         (set error 0)
  312.     )
  313.     )
  314. )
  315.  
  316. (makeassign "ARCO" dest1 )
  317. (set temp
  318.     (askstring
  319.         (prompt "\nPlease enter your name\nDo NOT use any punctuation marks!")
  320.         (help "\nThis string will be written into your AUTHOR\ntooltype found within the ArCo icon.")
  321.     )
  322. )
  323. (set temp1("%s/ArCo" dest1))
  324. (tooltype
  325.     (dest temp1)
  326.     (settooltype "AUTHOR" temp)
  327. )
  328.  
  329. (set temp("run sys:utilities/amigaguide %s/ARCO_Manual.guide" dest1))
  330. (run (temp))
  331.  
  332.  
  333. (set end_text "\n\nAll installed,\n\nHave fun!")
  334. (exit end_text)
  335.  
  336.